unit dPedido;

interface
uses
classes,
dObjects;

type
Tpedido=class(TdObjects)
private
fdtpedido : tdatetime;
fflagexportado : boolean;
fidlocalentrega : integer;
fidpagamento : integer;
fidpedido : integer;
fidusuario : integer;
fvaltotbruto : double;
fvaltotdesconto : double;
fvaltotliquido : double;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property dtpedido : tdatetime read fdtpedido write fdtpedido;
 property flagexportado : boolean read fflagexportado write fflagexportado;
 property idlocalentrega : integer read fidlocalentrega write fidlocalentrega;
 property idpagamento : integer read fidpagamento write fidpagamento;
 property idpedido : integer read fidpedido write fidpedido;
 property idusuario : integer read fidusuario write fidusuario;
 property valtotbruto : double read fvaltotbruto write fvaltotbruto;
 property valtotdesconto : double read fvaltotdesconto write fvaltotdesconto;
 property valtotliquido : double read fvaltotliquido write fvaltotliquido;
end;
implementation
constructor Tpedido.create;
begin

inherited;
clear;
self.AddPK(['idpedido']);
self.TableName := 'pedido';

end;
destructor Tpedido.destroy;
begin
inherited destroy;
end;
procedure Tpedido.clear;
begin
 fdtpedido       :=0;
 fflagexportado  :=false;
 fidlocalentrega :=0;
 fidpagamento    :=0;
 fidpedido       :=0;
 fidusuario      :=0;
 fvaltotbruto    :=0.0;
 fvaltotdesconto :=0.0;
 fvaltotliquido  :=0.0;
end;

end.
 